home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 11 Exotic Applications / T&TPRG.SDA / SEQ. PRINTER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  566 b   |  17 lines
  1. 0 REM -- FILENAME: "SEQ.PRINT".
  2. 10 CLR:PRINT:POKE198,0:F$="":INPUT"[147][198]ILE [212]O [208]RINT";F$:PRINT:IFF$=""THENEND
  3. 20 UL$="":POKE198,0:INPUT"[195]ASE: [213][208][208][197][210], LOWER, [193]BORT ([213]/[204]/[193])";UL$
  4. 30 UL$=LEFT$(UL$,1):IFUL$=""ORUL$="A"ORUL$="[193]"THENEND
  5. 40 UL=7:IFUL$="U"ORUL$="[213]"THENUL=0
  6. 50 D=PEEK(186):IFD<8THEND=8
  7. 60 D1=D
  8. 70 PRINT"[196]RIVE #?";D1;"[157]     [145]":POKE198,0:INPUT"[196]RIVE #";D$
  9. 80 D=INT(ABS(VAL(D$))):CLOSE1:OPEN1,D,15:CLOSE1:IFST<>0THENPRINT"[145][145]":GOTO70
  10. 90 PRINT:PRINT"[206]OW [208]RINTING [198]ILE...":CLOSE1:OPEN1,D,15,"I0":CLOSE1
  11. 100 CLOSE2:OPEN2,4,UL
  12. 110 OPEN1,D,5,"0:"+F$+",S,R":FORX=0TO1:GET#1,X$:X=PEEK(144):PRINT#2,X$;:NEXTX
  13. 120 CLOSE1:PRINT#2," ";:CLOSE2:PRINT
  14. 130 PRINT"[198]ILE: "+CHR$(34)+F$+CHR$(34)+" PRINTED.":PRINT"[211][212] =";X-1:CLR:END
  15. 140 STOP
  16. 150 END
  17.